(mouse-set-region): Call set-mark to activate mark.

diff --git a/lisp/mouse.el b/lisp/mouse.el
index 779d4fa5b67f40a733aceade86dcba5327348733..5f032754c0073599166bb59b85db47afe220d73c 100644 (file)
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -111,6 +111,7 @@ This must be bound to a mouse drag event."
             (eq (framep (selected-frame)) 'x))
        (sit-for 1))
     (push-mark)
+    (set-mark (point))
     (if (numberp (posn-point end))
        (goto-char (posn-point end)))))